home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.40 / xsc / xsc.p < prev    next >
Text File  |  1994-12-10  |  970b  |  69 lines
  1. UNIT xsc;
  2.  
  3. INTERFACE
  4. {$incl 'MathIEEEDoubTrans.lib'}
  5.  
  6. FUNCTION cosh(r:REAL):REAL;
  7. FUNCTION sinh(r:REAL):REAL;
  8. FUNCTION tanh(r:REAL):REAL;
  9. FUNCTION tan(r:REAL):REAL;
  10. FUNCTION arctan(r:REAL):REAL;
  11. FUNCTION arccos(r:REAL):REAL;
  12. FUNCTION arcsin(r:REAL):REAL;
  13. PROCEDURE closedoubtranslib;
  14.  
  15. IMPLEMENTATION
  16.  
  17. VAR puffer:REAL;
  18.  
  19. FUNCTION Cosh;
  20.  BEGIN
  21.   puffer:=ieeedpcosh(r);
  22.   cosh:=puffer;
  23.  END;
  24.  
  25. FUNCTION sinh;
  26.  BEGIN
  27.   puffer:=ieeedpsinh(r);
  28.   sinh:=puffer;
  29.  END;
  30.  
  31. FUNCTION tanh;
  32.  BEGIN
  33.   puffer:=ieeedptanh(r);
  34.   tanh:=puffer;
  35.  END;
  36.  
  37. FUNCTION tan;
  38.  BEGIN
  39.   puffer:=ieeedptan(r);
  40.   tan:=puffer;
  41.  END;
  42.  
  43. FUNCTION arccos;
  44.  BEGIN
  45.   puffer:=ieeedpacos(r);
  46.   arccos:=puffer;
  47.  END;
  48.  
  49. FUNCTION arcsin;
  50.  BEGIN
  51.   puffer:=ieeedpasin(r);
  52.   arcsin:=puffer;
  53.  END;
  54.  
  55. FUNCTION arctan;
  56.  BEGIN
  57.   puffer:=ieeedpatan(r);
  58.   arctan:=puffer;
  59.  END;
  60.  
  61. PROCEDURE closedoubtranslib;
  62.  BEGIN
  63.   closelib(mathIEEEDoubtransbase);
  64.  END;
  65.  
  66. BEGIN
  67.  openlib(mathIEEEDoubtransbase,'mathieeedoubtrans.library',0);
  68. END.
  69.